home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
macros
/
tip
/
ts-shead.tip
< prev
next >
Wrap
Text File
|
1993-09-15
|
3KB
|
84 lines
% This macro source file is from the four volume series
% "TeX in Practice" by Stephan von Bechtolsheim, published
% 1993 by Springer-Verlag, New York.
% Copyright 1993 Stephan von Bechtolsheim.
% No warranty or liability is assumed.
% This macro may be copied freely if no fees other than
% media cost or shipping charges are charged and as long
% as this copyright and the following source code itself
% is not changed. Please see the series for further information.
%
% Version: 1.0
% Date: May 1, 1993
%
%
% This source code is documented in 31.2.9, p. III-604.
% Original source in file "pp2.TEX", starting line 940.
\wlog{L: "ts-shead.tip" ["pp2.TEX," l. 940, p. III-604]}%
% This file DOES belong to format "texip."
\InputD{genhead.tip}
\InputD{compst.tip}
\InputD{dblarg.tip}
\catcode`\@ = 11
\NewCounter{SectionNo}{\arabic}%
{\PrintCounter{ChapterNo}.\TheCounter{SectionNo}}%
{\PrintCounter{ChapterNo}.\TheCounter{SectionNo}}%
\NewCounter{SubSectionNo}{\arabic}%
{\PrintCounter{SectionNo}.\TheCounter{SubSectionNo}}%
{\PrintCounter{SectionNo}.\TheCounter{SubSectionNo}}%
\NewCounter{SubSubSectionNo}{\arabic}%
{\PrintCounter{SubSectionNo}.\TheCounter{SubSubSectionNo}}%
{\PrintCounter{SubSectionNo}.\TheCounter{SubSubSectionNo}}%
\NewCounter{CloseByReferenceCount}{\arabic}%
{\PrintCounter{CloseByReferenceCount}}%
{\PrintCounter{CloseByReferenceCount}}%
\AddCounterToResetList{SectionNo}{ChapterNo}%
\AddCounterToResetList{SubSectionNo}{SectionNo}%
\AddCounterToResetList{SubSubSectionNo}{SubSectionNo}%
\def\Section{\DblArg{\@Section}}%
\def\@Section [#1]#2{%
\StepCounter{SectionNo}%
\def\Label ##1{\@Label{##1}{\RefCounter{SectionNo}}{1}}%
\GenericHeading{2}{36pt plus 10pt minus 2pt}%
{1}{1}{1}{24pt}{0}%
{\Large\baselineskip = 15pt}{-13pt}%
{\PrintCounter{SectionNo}}{#2}{#1}%
\gdef\EveryParB{%
{%
\@MakeRobustMacros
\def\LineBreakToc{ }%
\def\LineBreakHeading{ }%
\def\IgnoreInRunningHead ####1{%
\relax$\ldots$%
}%
\mark{#2}%
}%
}%
}
\def\SubSection{\DblArg{\@SubSection}}%
\def\@SubSection [#1]#2{%
\StepCounter{SubSectionNo}%
\def\Label ##1{\@Label{##1}{\RefCounter{SubSectionNo}}{1}}%
\GenericHeading{3}{30pt plus 8pt minus 2pt}%
{1}{1}{1}{18pt}{0}%
{\large\baselineskip = 14pt}{-12pt}%
{\PrintCounter{SubSectionNo}}{#2}{#1}%
}
\def\SubSubSection{\DblArg{\@SubSubSection}}%
\def\@SubSubSection [#1]#2{%
\ifnum\TheCounter{SubSectionNo} = 0
\errhelp = {The reason is probably that \string\Section
occurred directly followed by \string\SubSubSection
(that is you forgot a \string\SubSection in between).}%
\errmessage{\string\@SubSubSection: Counter "SubSectionNo"
is zero.}%
\fi
\StepCounter{SubSubSectionNo}%
\def\Label ##1{\@Label{##1}{\RefCounter{SubSubSectionNo}}{1}}%
\GenericHeading{4}{24pt plus 6pt minus 1pt}%
{1}{1}{1}{18pt}{0}%
{\normalsize}{-10pt}%
{\PrintCounter{SubSubSectionNo}}{#2}{#1}%
}
\catcode`\@ = 12